<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>192</cardCount>
<cardID>37437</cardID>
<listID>72133</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on mouseUpif the mouseH < 10 and the mouseV < 10 thenend ifif name of target contains "Card Field" ¬and short name of target is not "p" thenpopUp the number of the targetexit to hyperCardend ifend mouseUpon closeCardhide menuBarend closeCardon cleanScreenhide menuBarhide msgend cleanScreenon arrowkey Directionif Direction is "left" thenvisual wipe rightgo prev cdend ifif Direction is "right" thenvisual wipe leftgo next cdend ifend arrowkeyon waiterwait until mouse() is downend waiteron popUp thatFieldcleanScreenlock screenset visible of cd fld thatField ¬to not visible of cd fld thatFieldunlock screen with dissolveend popUpon cleanScreenhide menuBarhide msgend cleanScreenon closeCardcleanscreenend closecardon closeBookcleanScreenanswer "Go Home or Quit?" with ¬"Home" or "Quit" or "Cancel"if it is "Home" thenif short name of this bg is "Location" thenvisual scroll leftelsevisual wipe rightend ifgo cd introductionvisual barn door close to greyvisual dissolve to graydoMenu "Home"end ifif it is "Quit" thendoMenu "Quit HyperCard"end ifend closeBookon GoToEffectscleanScreenset cursor to 4visual wipe downend GoToEffectson FirstCEffectcleanScreenset cursor to 4visual dissolve to greyvisual dissolve to greyvisual dissolvego first cdend FirstCEffecton popUp FldNameset cursor to 4lock screenset visible of cd fld FldName to not visible of cd fld FldNameunlock screen with dissolveend popUpon DogEarput (item 3 of rect of target) - (item 1 of the clickLoc) ¬into xput (item 4 of rect of target) - (item 2 of the clickLoc) ¬into yif (x > y) thenvisual wipe rightgo previous cd of this bgelsevisual wipe leftgo next cd of this bgend if--David Dunham's, Modified--(Delphi: DDUNHAM; CIS 76074,762; AppleLink D0457).end DogEaron getListglobal WRfilesList,tempTime--cleanScreenWRput the ticks into tempTimeGet HPopupMenu(WRfilesList,0, 55, 500)if it is not zero thenPut Item 1 of it into TheLineput Item 2 of it into TheItemif short name of this cd is not ¬(item TheItem of line TheLine of WRfilesList) thenvisual zoom opengo cd (item TheItem of line TheLine of WRfilesList)end ifput empty into tempTimeend ifend getListon getTimeglobal tempTimeif the ticks - tempTime < 60 thenanswer "Keep the mouse button pressed down longer."put empty into tempTimeend ifend getTimeon GoHomeset cursor to 4visual dissolve to blackvisual dissolve to blackwait 1doMenu "Home"end GoHomeon openStackglobal Stacks,WRfilesList,WROpenedcleanScreenif the version < 1.2 thenAnswer "Hypercard version 1.2, or later, is available at your "¬&"Apple dealer. Many functions of this stack require the new "¬&"features. Continue?" ¬with "Risk It" or "Go Home"if it is "Go Home" thenvisual dissolvedoMenu "Home"exit openStackend ifend ifset cursor to 4if stacks is empty thenCheckGlobalsend ifset userLevel to 5put "Introduction" into WRfilesListput Return & "Timelines,Before 11-22-63,On 11-22-63,After 11-22-63" after WRfilesListPut Return & "Profiles A-J,Becker,Boggs,Brown,Connally,Costello,Dulles,Ferrie,Ford,Frazier,Greer,Harrelson,Hidell,Hoffa,Hoover,Hosty,Humes,Hunt,Johnson" after WRfilesListput Return & "Profiles K-Z,Kellerman,Kennedy R,Marcello,Muhrenschildt,Nixon,Oswald L,Oswald M,Ruby,Russell,Schwieker,Siebert,Smith,Sturgiss,Sullivan,Tippet,Trafficante,Walker,Zapruder" after WRfilesListput Return & "Evidence,Guns & Bullets,Kennedy's Wounds,Oswald's Wallet,Photos,Files on Oswald" after WRfilesListput Return & "Notes,Framing Oswald,Oswald & FBI,Oswald & CIA,Oswald's Alibi,Shots from Grassy Knoll,2 Caskets for 1 Body,Ruby Cleans Up,A Mafia Hit?,Secret Service's Secrets,What Bobby Thought,Miscellaneous" after WRfilesListput Return & "Maps & Photos,Dealey Plaza,Book Depository,Grassy Knoll,Air Force One" after WRfilesListput Return & "Recordings,Eye Witness Radio,Becker's Testimony,Ruby Speaks,Ruby's Girl,LBJ's Girl" after WRfilesListput Return & "Analysis,Preface,The Three Options,Who Had the MM&O?,Afterword" after WRfilesListput Return & "Books" after WRfilesListput Return & "Comments" after WRfilesListend openStackon CheckGlobalsglobal GULevel,GPKeys,GTArrowsglobal GVPatn,GBTyping,GVMsg,GVToolgetHomeInfoput the userLevel into GULevelput the powerKeys Into GPKeysput the textArrows into GTArrowsput the blindTyping into GBTypingput the visible of the msg into GVMsgput the visible of tool window into GVToolput the visible of pattern window into GVPatnend CheckGlobalson closeStackglobal GULevel,GPKeys,GTArrowsGlobal GVPatn,GBTyping,GVMsg,GVToolglobal PendState,WRfilesListcleanScreenset cursor to 4put empty into PendStateif GULevel is empty thenCheckGlobalsend ifset the userLevel to GULevelset the powerKeys to GPKeysset the textArrows to GTArrowsset the blindTyping to GBTypingset the visible of the msg to GVMsgset the visible of tool window to GVToolset the visible of pattern window to GVPatnpass closeStackend closeStack</script>
